home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / jan93cad.zip / TIP834.LSP < prev    next >
Lisp/Scheme  |  1992-12-14  |  709b  |  24 lines

  1. ;TIP834:  LP.LSP (c)1993, J. Daniels squires
  2.  
  3. ;Displays the "lastpoint" entered into the database
  4. ;Ver. 1.0
  5. ;----------------------------------------------------------
  6.  
  7. (defun C:LP ()
  8.   (setq VS (getvar "viewsize"))
  9.   (setq PTSZ (/ VS 100))
  10.   (setq LP (getvar "lastpoint"))
  11.   (setq CP1 (list (- (car LP)(/ PTSZ 2))(- (cadr LP)(/ PTSZ 2.0))))
  12.   (setq CP2 (list (+ (car CP1) PTSZ)(+ (cadr CP1) PTSZ)))
  13.   (setq CP3 (list (car CP1)(cadr CP2)))
  14.   (setq CP4 (list (car CP2)(cadr CP1)))
  15.   (setq XLP (list 'X:(car LP) 'Y:(cadr LP) 'Z:(caddr LP)))
  16.   (princ "\nCurrent database point at: ")(princ XLP)
  17.   (repeat 31
  18.     (grdraw CP1 CP2 -1 1)
  19.     (grdraw CP3 CP4 -1 1)
  20.   )
  21.   (prin1)
  22. ); end lp.lsp
  23.  
  24.